home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 1 / Gold Medal Software Volume 1 (Gold Medal) (1994).iso / graphics / show40a.arj / EXAMPLES.EXE / MATHWIZZ.SHW < prev    next >
Text File  |  1993-12-01  |  2KB  |  107 lines
  1. ;*********************************************************************;
  2. ; Sciptname..:  MathWizz.SHW                                          ;
  3. ; Date.......:  1st. Nov. 1993, by RMP DATA.                          ;
  4. ; Purpose....:  Promotion for DATASHOW, as an example script.         ;
  5. ;*********************************************************************;
  6.  
  7. ; Create all variables
  8. VARIABLE CREATE var1 TYPE NUMBER 0
  9. VARIABLE CREATE var2 TYPE NUMBER 0
  10. VARIABLE CREATE result TYPE NUMBER 0
  11. VARIABLE CREATE input TYPE NUMBER 0
  12. VARIABLE CREATE inkey TYPE KEY
  13.  
  14. SHOW SCREEN "mathwiz1.scr" TXT
  15. WAIT 3
  16.  
  17. ; Starting point for addition puzzles
  18. MARK 10
  19.  
  20. SHOW SCREEN "mathwiz2.scr" TXT
  21.  
  22. math var1 = random(100)
  23. math var2 = random(100)
  24. math result = var1 + var2
  25.  
  26. goxy 30 10 write var1
  27. goxy 30 11 write "+"
  28. goxy 30 12 write var2
  29.  
  30. goxy 30 13 write "--------"
  31. goxy 30 15 write "--------"
  32. goxy 30 14 READ STRING input 4
  33.  
  34. IF input EQ result DO JUMPMARK 11
  35.  
  36. goxy 30 17 write "Wrong result..."
  37. goxy 30 19 write "The result was: "+result
  38.  
  39. JUMPMARK 12
  40.  
  41. MARK 11
  42.  
  43. goxy 30 17 write "CONGRATULATION!!!"
  44.  
  45. MARK 12
  46.  
  47. goxy 4 25
  48. write "Q = Quit, PgDn = New Operator, Any other key = Continue this puzzle"
  49.  
  50. READ KEY inkey
  51.  
  52. CASE KEY inkey 81 DO JUMPMARK 100    ; 'q'
  53. CASE KEY inkey 113 DO JUMPMARK 100   ; 'Q'
  54. CASE KEY inkey 481 DO JUMPMARK 20    ; 'PgDn'
  55.  
  56. ; Jump back to starting point
  57. JUMPMARK 10
  58.  
  59. ; Starting point for multiplication puzzles
  60. MARK 20
  61.  
  62. SHOW SCREEN "mathwiz2.scr" TXT
  63.  
  64. math var1 = random(100)
  65. math var2 = random(100)
  66. math result = var1 * var2
  67.  
  68. goxy 30 10 write var1
  69. goxy 30 11 write "*"
  70. goxy 30 12 write var2
  71.  
  72. goxy 30 13 write "--------"
  73. goxy 30 15 write "--------"
  74. goxy 30 14 READ STRING input 4
  75.  
  76. IF input EQ result DO JUMPMARK 21
  77.  
  78. goxy 30 17 write "Wrong result..."
  79. goxy 30 19 write "The result was: "+result
  80.  
  81. JUMPMARK 22
  82.  
  83. MARK 21
  84.  
  85. goxy 30 17 write "CONGRATULATION!!!"
  86.  
  87. MARK 22
  88.  
  89. goxy 4 25
  90. write "Q = Quit, Any other key = Continue this puzzle"
  91.  
  92. READ KEY inkey
  93.  
  94. CASE KEY inkey 81 DO JUMPMARK 100    ; 'q'
  95. CASE KEY inkey 113 DO JUMPMARK 100   ; 'Q'
  96.  
  97. JUMPMARK 20
  98.  
  99. ; End the script
  100. MARK 100
  101.  
  102. COLOR BACKGROUND 0
  103. SCREEN CLEAR
  104. WRITE "THANK YOU FOR USING MATHWIZARD..."
  105. WAIT 2
  106. QUIT
  107.